allocate_buffer): Call VALIDATE_LISP_STORAGE.

diff --git a/src/alloc.c b/src/alloc.c
index 5c0e0dd3c689d76a51b8dd45d3be52d2a68984d1..b048d04e645e227a7e7f4d7c58c35572261c32fc 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -611,8 +611,11 @@ lisp_malloc (nbytes, type)
 struct buffer *
 allocate_buffer ()
 {
-  return (struct buffer *) lisp_malloc (sizeof (struct buffer),
-                                       MEM_TYPE_BUFFER);
+  struct buffer *b 
+    = (struct buffer *) lisp_malloc (sizeof (struct buffer),
+                                    MEM_TYPE_BUFFER);
+  VALIDATE_LISP_STORAGE (b, sizeof *b);
+  return b;
 }